home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / M-Md / MacABadge.cpt / MacABadge / card_6859.txt < prev    next >
Encoding:
Text File  |  1987-12-16  |  6.6 KB  |  306 lines
  1. -- card: 6859 from stack: in
  2. -- bmap block id: 7888
  3. -- flags: 0000
  4. -- background id: 2770
  5. -- name: IndexCard
  6. ----- HyperTalk script -----
  7. on openCard
  8.   choose browse tool
  9. end openCard
  10.  
  11.  
  12. -- part 9 (field)
  13. -- low flags: 01
  14. -- high flags: 0000
  15. -- rect: left=0 top=22 right=342 bottom=512
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 0
  19. -- font id: 3
  20. -- text size: 12
  21. -- style flags: 256
  22. -- line height: 16
  23. -- part name: Info
  24.  
  25.  
  26. -- part 1 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=450 top=298 right=328 bottom=485
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 20098 / 20098
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Home
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   set userLevel to 5
  41.   doMenu Compact Stack
  42.   visual effect iris close
  43.   go home
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 2 (button)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=17 top=213 right=336 bottom=83
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: To Badge Ideas
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   Get the userLevel
  63.   Set the userLevel to 4
  64.   go to card id 2448
  65. end mouseUp
  66.  
  67.  
  68.  
  69.  
  70. -- part 4 (button)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=293 top=142 right=184 bottom=357
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: To Order
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   go to card id 5985
  85. end mouseUp
  86.  
  87.  
  88.  
  89.  
  90. -- part 3 (button)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=106 top=150 right=236 bottom=169
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: To Badge Design
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   Get the userLevel
  105.   Set the userLevel to 5
  106.   go to card id 2230
  107. end mouseUp
  108.  
  109.  
  110.  
  111.  
  112. -- part 5 (button)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=168 top=252 right=296 bottom=233
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: To Art Ideas
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   set userLevel to 4
  127.   go to stack "Art Ideas"
  128. end mouseUp
  129.  
  130.  
  131.  
  132.  
  133. -- part 6 (button)
  134. -- low flags: 00
  135. -- high flags: 0000
  136. -- rect: left=221 top=28 right=71 bottom=285
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: To first Card
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   go to card id 5405
  148. end mouseUp
  149.  
  150.  
  151.  
  152.  
  153. -- part 8 (button)
  154. -- low flags: 00
  155. -- high flags: 0000
  156. -- rect: left=163 top=24 right=63 bottom=204
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 19678 / 19678
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Tell Me About...
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   show card field id 9
  168. end mouseUp
  169.  
  170.  
  171. -- part 10 (button)
  172. -- low flags: 00
  173. -- high flags: 0000
  174. -- rect: left=417 top=203 right=245 bottom=481
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: To Current OrderForm
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   Get the userLevel
  186.   Set the userLevel to 5
  187.   Go to Card id "4903"
  188.   set the location of Pattern Window to 5,136
  189.   show pattern window
  190.   set the location of Tool Window to 85,171
  191.   show tool window
  192.   Hide background field "Temphider"
  193.   Get loc of card field "ButtonField"
  194.   Click at it
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 14 (button)
  200. -- low flags: 00
  201. -- high flags: 0000
  202. -- rect: left=196 top=183 right=227 bottom=263
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: AboutForm
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   go to card id 6473
  214.   set the location of Pattern Window to 5,136
  215.   show pattern window
  216.   set the location of Tool Window to 85,171
  217.   show tool window
  218.   show card field id 25
  219.   show card field id 27
  220.   Hide background field "Temphider"
  221. end mouseUp
  222.  
  223.  
  224.  
  225.  
  226. -- part 16 (button)
  227. -- low flags: 00
  228. -- high flags: 0000
  229. -- rect: left=417 top=203 right=245 bottom=481
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: To Current OrderForm
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   Get the userLevel
  241.   Set the userLevel to 5
  242.   Go to Card id "4903"
  243.   set the location of Pattern Window to 5,136
  244.   show pattern window
  245.   set the location of Tool Window to 85,171
  246.   show tool window
  247.   Hide background field "Temphider"
  248.   Get loc of card field "ButtonField"
  249.   Click at it
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 17 (button)
  255. -- low flags: 00
  256. -- high flags: 0000
  257. -- rect: left=297 top=253 right=295 bottom=361
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: To Current OrderForm
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   set LockScreen to True
  269.   Get the userLevel
  270.   Set the userLevel to 5
  271.   Go to Card id "4903"
  272.   Go to Next Card
  273.   set LockScreen to False
  274.   set the location of Pattern Window to 5,136
  275.   show pattern window
  276.   set the location of Tool Window to 85,171
  277.   show tool window
  278.   Hide background field "Temphider"
  279.   Get loc of card field "ButtonField"
  280.   Click at it
  281. end mouseUp
  282.  
  283.  
  284.  
  285. -- part contents for card part 9
  286. ----- text -----
  287.  
  288.                                                           First Card
  289.  
  290.  
  291.       Click these for:                              Index Card
  292.                                                                                
  293.                        Design 
  294.                      Hints
  295.                                        About the
  296.                                      OrderForm                           
  297.       Badge                                            Ordering        New OrderForm
  298.       Ideas                                             a Badge  
  299.  
  300.                    
  301.                  
  302.  
  303.                                                 
  304.                                      Art                My Design                                                  
  305.                                Ideas Stack          Collection                    
  306.